Education Analytics Admissions Screening Project

Connection to edu_analytics database

library(tidyverse)
library(knitr)
library(RMySQL)
library(yaml)
library(tidyverse)
library(magrittr)
library(knitr)
library(stringr)
library(purrr)
sessionInfo()$otherPkgs %>% 
  map_chr(function(pkg) paste(pkg$Package, pkg$Version)) %>%
  cat(sep = "\n")

readxl 0.1.1
stringr 1.1.0
magrittr 1.5
yaml 2.1.14
RMySQL 0.10.9
DBI 0.5-1
knitr 1.15.1
dplyr 0.5.0
purrr 0.2.2
readr 1.0.0
tidyr 0.6.1
tibble 1.2
ggplot2 2.2.1
tidyverse 1.1.1

opts_chunk$set(message = FALSE, warning = FALSE, comment = "   ",
            cache = TRUE, autodep = TRUE, cache.comments = FALSE)

table_names %>% 
  str_detect(regex("^\\d{4}_all_applicants$", ignore_case = TRUE)) %>%
  which() %>% 
  extract(table_names, .) %>% 
  purrr::map(., function(tbl_name) tbl(edu_db, tbl_name)) %>%
  purrr::map(., function(x) collect(x)) 

[[1]]

[[2]]

[[3]]

[[4]]

NA

dbDisconnect(edu_db$con)